/* GUI CONVERTED from sosorp.i (converter v1.75) Thu May  3 20:18:42 2001 */
/* sosorp.i - SALES ORDERS PRINT CUSTOMER HEADER INCLUDE FILE           */
/* Copyright 1986-2002 QAD Inc., Carpinteria, CA, USA.                  */
/* All rights reserved worldwide.  This is an unpublished work.         */
/* $Revision: 1.12 $                                                     */
/*V8:ConvertMode=Report                                                 */
/* REVISION: 6.0      LAST MODIFIED: 01/11/91   BY: dld *D293*/
/* REVISION: 7.0      LAST MODIFIED: 03/17/92   BY: TMD *F259**/
/* REVISION: 7.0      LAST MODIFIED: 06/26/92   BY: afs *F708**/
/* REVISION: 7.0      LAST MODIFIED: 07/16/92   BY: afs *F774**/
/* REVISION: 7.3      LAST MODIFIED: 01/20/93   BY: afs *G573**/
/* REVISION: 7.3      LAST MODIFIED: 04/30/93   BY: ksp *GA62**/
/* REVISION: 8.6E     LAST MODIFIED: 02/23/98   BY: *L007* A. Rahane    */
/* REVISION: 8.6E     LAST MODIFIED: 07/16/98   BY: *L024* B. Reckard   */
/* REVISION: 8.6E     LAST MODIFIED: 03/31/99   BY: *L0DS* Anup Pereira */
/* REVISION: 9.1      LAST MODIFIED: 03/24/00   BY: *N08T* Annasaheb Rahane */
/* REVISION: 9.1      LAST MODIFIED: 05/02/00   BY: *N09M* Antony Babu      */
/* REVISION: 9.1      LAST MODIFIED: 08/12/00   BY: *N0KN* myb              */
/* Old ECO marker removed, but no ECO header exists *F0PN*                  */
/* $Revision: 1.12 $    BY: Katie Hilbert DATE: 04/27/01 ECO: *N0Y7*      */
/******************************************************************************/
/* All patch markers and commented out code have been removed from the source */
/* code below. For all future modifications to this file, any code which is   */
/* no longer required should be deleted and no in-line patch markers should   */
/* be added.  The ECO marker should only be included in the Revision History. */
/******************************************************************************/

/*!
This file will print header information for customers
including remarks and comments.
*/


/*GUI preprocessor directive settings */
&SCOPED-DEFINE PP_GUI_CONVERT_MODE REPORT

if page-size - line-counter < 3 then page.
else
if ((so_slspsn[3] <> "" or so_slspsn[4] <> "") or so_rmks <> "") and
   page-size - line-counter < 4 then page.

{gprunp.i "mcui" "p" "mc-ex-rate-output"
   "(input so_curr,
     input base_curr,
     input so_ex_rate,
     input so_ex_rate2,
     input so_exru_seq,
     output v_disp_line1,
     output v_disp_line2)"}

assign
   v_cust_po               = ""
   substring(v_cust_po, 1) = so_cust
   substring(v_cust_po, 9) = " " + so_po.

display
   so_nbr
   v_cust_po
   so_ship
   so_ord_date
   so_stat
   so_quote
   so_disc_pct
   so_cr_terms
   so_curr v_disp_line1
with frame b STREAM-IO /*GUI*/ .

if name         <> "" or
   v_disp_line2 <> ""
then do:

   down with frame b.
   display
      name         @ v_cust_po
      v_disp_line2 @ v_disp_line1
   with frame b STREAM-IO /*GUI*/ .

end.  /* if name */


put {gplblfmt.i
   &FUNC=getTermLabel(""SALESPERSONS"",16)
   &CONCAT="': '"
   } at 65
   so_slspsn[1] at 79 so_slspsn[2] at 89 skip.
if so_slspsn[3] <> "" or so_slspsn[4] <> "" then
   put so_rmks at 13 so_slspsn[3] at 79 so_slspsn[4] at 89 skip.
else if so_rmks <> "" then
   put so_rmks at 13
   skip.
if show_comments and so_cmtindx <> 0 then do:
   {gpprcmt.i &cmtindx = so_cmtindx subhead = so_nbr}
   put skip(1).
end.
